home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Graphics / Graphic Demos / PseudoPS / PseudoPS.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-08-30  |  5.5 KB  |  272 lines  |  [TEXT/KAHL]
  1. /*
  2.  *  PseudoPS -- a small PostScript interpreter (1987)
  3.  *
  4.  *  Written by        Craig E Rasmussen
  5.  *                    Center for Atmospheric and Space Science
  6.  *                    Utah State University
  7.  *                    Logan, Utah 84322-4405
  8.  *                    (801) 750-2967
  9.  *
  10.  *    email        -    cer@star.stanford.edu
  11.  *                -    theory::craig on the SPAN network
  12.  *
  13.  *  with the use of SimpleTools.c (c) Erik Kilk 1986
  14.  * 
  15.  *  This program may be freely distributed and modified as long as this
  16.  *  header remains in place.
  17.  *
  18.  *  Link with LightSpeedC modules
  19.  *      -    MacTraps
  20.  *      -    math
  21.  *      -    stdio
  22.  *      -    strings
  23.  *      -    unix
  24.  */
  25.  
  26. #include <Quickdraw.h>
  27. #include "simple.h"        /* SimpleTools header file    */
  28. #include "PseudoPS.h"
  29.  
  30. FILE *fpPS, *fpErr;
  31. char PStext[STRINGLENGTH];
  32. int PSopen = FALSE;
  33.  
  34. inwindow (x, y)            /* executed when click in our window */
  35. int x, y;
  36. {
  37.   Point m;
  38.     while ( StillDown() ) {    /* while the Button is pressed */
  39.         GetMouse (&m);        /* waste time */
  40.     }
  41.  
  42. }
  43.  
  44. nop()
  45. {
  46. }
  47.  
  48. no_edit ()            /* turn off edit menu (on activation) */
  49. {
  50.   menu ("Edit", "", itemdisable);
  51. }
  52.  
  53. yes_edit ()            /* turn on edit menu (on deactivation) */
  54. {
  55.   menu ("Edit", "", itemenable);
  56. }
  57.  
  58. aboutPs()            /* About message */
  59. {
  60.     char messageStr[255];
  61.     strcpy(messageStr,"PseudoPS -- by Craig E Rasmussen (1987)\r");
  62.     strcat(messageStr,"A very small PostScript interpreter.\r");
  63.     strcat(messageStr,"Please freely distribute and improve.\r");
  64.     if (message(messageStr)) {
  65.         strcpy(messageStr,"Programmed with the aid of SimpleTools\r");
  66.         strcat(messageStr,"(c) Erik Kilk 1986");
  67.         message(messageStr);
  68.     }
  69. }
  70.  
  71. OpenPSfile()            /* to be executed File-open menu is selected */
  72. {
  73.     char PSfile[255], *PtoCstr();
  74.     int i, n, c;
  75.     
  76.     if (PSopen == TRUE) {
  77.         SysBeep(10);
  78.         message("a file is already open");
  79.         return;
  80.     }
  81.     if (getfile("TEXT", PSfile)) {
  82.         if ((fpPS = fopen(PtoCstr(PSfile), "r")) != NULL) {
  83.             PSopen = TRUE;
  84.             window (PSfile, WXTOP, WYTOP, WXBOT, WYBOT
  85.                 , no_edit, yes_edit, nop, inwindow);
  86.             menu ("File", "Open.../O", itemdisable);
  87.             SetTransforms(WXTOP, WYTOP, WXBOT, WYBOT);
  88.         }
  89.         else SysBeep(10);
  90.     }
  91.     else SysBeep(10);
  92. }
  93.  
  94.  
  95. setup ()            /* Setup the menus and windows */
  96. {
  97.     menu (applestring, "About PsuedoPS...", aboutPs);
  98.     menu (applestring, "About PsuedoPS...", itemenable);
  99.     menu ("File", "Open.../O", OpenPSfile);
  100.     simplequits ();
  101.     
  102.     if ((fpErr = fopen("PS.errors", "w")) == NULL) {
  103.         SysBeep(0);
  104.         exit();
  105.     }
  106. }
  107.  
  108. main ()
  109. {
  110.     
  111.     simpletools ("About PsuedoPS...");        /* Initialize SimpleTools    */
  112.     setup ();
  113.     
  114.     while (1) {
  115.         simpleevents ();                    /* Handle all events        */
  116.         PostScript();
  117.     }
  118. }
  119.  
  120.  
  121. PostScript()
  122. {
  123.     char s[STRINGLENGTH];
  124.     int status;
  125.     float atof();
  126.  
  127.     if (!PSopen) return;    
  128.     if ((status = getPS(s, STRINGLENGTH))) {
  129.         if (status == -1)
  130.             fprintf(fpErr, "PostScript buffer overflow\n");
  131.         else if (status == -2) {
  132.             fprintf(fpErr, "unterminated PostScript string\n");
  133.             strcpy(PStext, s);
  134.         }
  135.         else if (status == 2) strcpy(PStext, s);
  136.         else if (IsInteger(s)) push( (float)atoi(s) );
  137.         else if (IsFloat(s)) push(atof(s));
  138.         else ParsePS(s);
  139.     }
  140. }
  141.  
  142.  
  143. /*
  144.  *  Copy PostScript token to s if present, return(1); else return(0) if
  145.  *  no token present or return(-1) if buffer overflow.
  146.  */
  147.  
  148. getPS(s, max)
  149. char *s;
  150. int max;
  151. {
  152.     char *sPtr;
  153.     int count = 0, c;
  154.  
  155.     sPtr = s;
  156.     while (WhiteSpace(c = getc(fpPS)));        /* remove leading blanks */
  157.  
  158.     if (c == '(') return(getPSstr(s, max));    /* get PostScript string */
  159.     
  160.     while (!WhiteSpace(c)) {                /* copy character to s */
  161.         if (c != EOF) {
  162.             if (++count < max) *sPtr++ = c;    /* copy c if space available */
  163.             else {                            /* buffer overflow */
  164.                 *sPtr = '\0';
  165.                 return(-1);
  166.             }
  167.         }
  168.         else {                                /* end of file reached */
  169.             fclose(fpPS);
  170.             PSopen = FALSE;
  171.             menu ("File", "Open.../O", itemenable);
  172.             if (count > 0) {                /* token present */
  173.                 *sPtr = '\0';
  174.                 return(1);
  175.             }
  176.             else return(0);                    /* no token present */
  177.         }
  178.         c = getc(fpPS);
  179.     }
  180.     *sPtr = '\0';
  181.     return(1);                                /* token present */
  182. }
  183.  
  184.  
  185. /*
  186.  *  Copy PostScript string to s if present, return(2); else return(0) if
  187.  *  no string not properly terminated or return(-1) if buffer overflow.
  188.  *  Character '(' already found in input stream.
  189.  */
  190.  
  191. getPSstr(s, max)
  192. char *s;
  193. int max;
  194. {
  195.     char *sPtr;
  196.     int count = 0, excess = 0, c;
  197.  
  198.     sPtr = s;
  199.     c = getc(fpPS);
  200.     
  201.     while (c != ')'  ||  excess > 0) {        /* copy character to s */
  202.         if (c != EOF) {
  203.             if (++count < max) {            /* copy c if space available */
  204.                 *sPtr++ = c;
  205.                 if (c == '(') ++excess;        /* increase unbalanced ( count */
  206.                 else if (c == ')') --excess;
  207.             }
  208.             else {                            /* buffer overflow */
  209.                 *sPtr = '\0';
  210.                 return(-1);
  211.             }
  212.         }
  213.         else {                                /* end of file reached */
  214.             fclose(fpPS);
  215.             PSopen = FALSE;
  216.             menu ("File", "Open.../O", itemenable);
  217.             if (count > 0) {                /* string present */
  218.                 *sPtr = '\0';                /* but not terminated by ')' */
  219.                 return(-2);
  220.             }
  221.             else return(0);                    /* no string present */
  222.         }
  223.         c = getc(fpPS);
  224.     }
  225.     *sPtr = '\0';
  226.     return(2);                                /* string present */
  227. }
  228.  
  229.  
  230. IsFloat(s)
  231. char *s;
  232. {
  233.     char c;
  234.  
  235.     while (WhiteSpace(*s)) s++;
  236.     if (*s == '-' || *s == '+') s++;    
  237.     while (c = *s++)
  238.         if (c < '0' || c > '9') {
  239.             if (c == '.') break;
  240.             else return (0);
  241.         }
  242.     if (c != '.') return(0);                    /* no decimal point */
  243.     while (c = *s++) if (c < '0'  ||  c > '9') return (0); /* decimal part */
  244.     return (1);
  245. } 
  246.  
  247.  
  248. IsInteger(s)
  249. char *s;
  250. {
  251.     char c;
  252.  
  253.     while (WhiteSpace(*s)) s++;
  254.     if (*s == '-' || *s == '+') s++;    
  255.     while (c = *s++) if (c < '0'  ||  c > '9') return (0);
  256.     return (1);
  257. } 
  258.  
  259. WhiteSpace(c)
  260. {
  261.     switch (c) {
  262.         case ' ':
  263.         case '\n':
  264.         case '\t':
  265.         case '\v':
  266.         case '\f':
  267.         case '\r':
  268.             return (1);
  269.         default:
  270.             return (0);
  271.     }
  272. }